|
CATIA V5 Programmierung : Referenzkreis ändern
denyo_1 am 24.06.2008 um 08:58 Uhr (0)
Hallo Georg,das Makro selektiert alle Ballons auf der Zeichnung und setzen den Rahmen falls er NICHT catNone (kein Rahmen) ist auf catNone.Language="VBSCRIPT"Code:Sub CATMain()Dim oDoc As DocumentDim oSel As SelectionSet oDoc = CATIA.ActiveDocumentSet oSel = oDoc.SelectionoSel.Search "Drafting.Balloon;all"i = 1For i = 1 To oSel.CountSet oBallon = oSel.Item(i).ValueIf oBallon.FrameType catNone Then oBallon.FrameType = catNoneEnd IfNextoSel.ClearKannst auch auskommentierenBox = MsgBox("Die TextFrames von " ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D Linie im Drawing, die Existenz abfragen, bei Bedarf erzeugen und umbenennen
denyo_1 am 05.11.2008 um 17:12 Uhr (0)
Hallo Hokay,das Problem ist das viele Funktionen aus der Drafting WB kein Journaling unterstützen (d.h. sie werden NICHT vom Makrorecorder aufgezeichnet). Dabei handelt es sich vor allem um das erstellen von Linien, Punkten, Splines, etc..Man bräucht von dir jedoch noch ein paar Infos sonst wird es schwer dir ein kleines Beispielscript zu schreiben.1. Ist die Linie immer in einer bestimmten View oder kann sie sich in jeder View der drawing befinden (also auch direkt auf dem Blatt oder im Background)?2. In ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzkreis ändern
denyo_1 am 25.06.2008 um 13:12 Uhr (0)
Hallo Georg,du hast dich nicht verständlich ausgedrückt. Ich denke mal die meisten sind davon ausgegangen das das Makro an dieser Stelle hängt, oder abbricht.Dem ist aber nicht so. Das Makro macht lediglich die Änderung nicht und das stimmt auch. Den Textproperties werden erst nach einem Update übernommen.Hier der Code. Jetzt funktioniert er Code:Sub CATMain()Dim oDoc As DocumentDim oSel As SelectionSet oDoc = CATIA.ActiveDocumentSet oSel = oDoc.SelectionoSel.Search "Drafting.Balloon;all"i = 1For i = 1 To ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzkreis ändern
denyo_1 am 24.06.2008 um 14:07 Uhr (0)
Hallo,Code:For i = 1 To oSel.CountSet oBallon = oSel.Item(i).ValueIn der ersten Zeile fängt die Schleife an und zwar von 1 bis zur Anahl aller in der Selektion vorhandenen Teile. In der Selektion sind natürlich alle auf der Zeichnung verfügbaren Ballons.In der zweiten Zeile wird jetzt jeder Ballon einzaln angesprochen. Zuerst kannst du alle zugängigen Eigenschaften des ersten, dann des zweiten usw. Ballons ändern.Du müsstest also das mit der Schriftart und der Pfeil nach der zweiten Zeile einfügenHier mal ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
